#!/usr/bin/perl -w
#$Source: Volumes://MATEOR/prlserverapi/startclient.pl$
#$Revision: 0.01-0a$
#$Date: June 12, 2012$
#------------
# PrlServerAPI Copyright Matthew Caswell, 2012
#------------
#

use strict;

my($host, $server, $port);

print "Enter your host name: ";
$host = <STDIN>;
chomp($host);
print "Enter the server IP/Address: ";
$server = <STDIN>;
chomp($server);
print "Enter the connecting port number: ";
$port = <STDIN>;
chomp($port);

my($CLIENT_SESSION) = `perl ./client.pl $host $server $port`;
print "Client exited with -: $CLIENT_SESSION";

exit;
